home *** CD-ROM | disk | FTP | other *** search
/ Hardcore Visual Basic 5.0 (2nd Edition) / Hardcore Visual Basic 5.0 - Second Edition (1997)(Microsoft Press).iso / Code / ISORTH~1.CLS < prev    next >
Text File  |  1997-06-14  |  626b  |  29 lines

  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "ISortHelper"
  6. Attribute VB_GlobalNameSpace = False
  7. Attribute VB_Creatable = False
  8. Attribute VB_PredeclaredId = False
  9. Attribute VB_Exposed = True
  10. Option Explicit
  11.  
  12. ' ISortHelper interface class
  13.  
  14. Function Compare(v1 As Variant, v2 As Variant) As Integer
  15. End Function
  16.  
  17. Sub Swap(v1 As Variant, v2 As Variant)
  18. End Sub
  19.  
  20. Sub CollectionSwap(n As Collection, _
  21.                    i1 As Variant, _
  22.                    i2 As Variant, _
  23.                    Optional key1 As Variant, _
  24.                    Optional key2 As Variant)
  25. End Sub
  26. '
  27.  
  28.  
  29.